unit dmda_Color;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, dmModule, FR_DSet, FR_DBSet, DB, ADODB;

type
  Tdtmda_Color = class(TdtmModule)
    adsMasterWriter: TStringField;
    adsMasterWriteTime: TDateTimeField;
    adsMasterModifier: TStringField;
    adsMasterModifyTime: TDateTimeField;
    adsMasterRemark: TStringField;
    adsMasterHasCheck: TBooleanField;
    adsMasterChecker: TStringField;
    adsMasterCheckTime: TDateTimeField;
    adsMasterColorID: TStringField;
    adsMasterColorCode: TStringField;
    adsMasterColorName: TStringField;
    adsMasterColorDescribe: TStringField;
    adsMasterHasUse: TBooleanField;
    adsMasterHasStop: TBooleanField;
    adsMasterHasSysdefine: TBooleanField;
    adsMasterHasDefault: TBooleanField;
    adsMasterStoper: TStringField;
    adsMasterStopDate: TDateTimeField;
    adsMasterStopMemo: TStringField;
    adsMasterCustID: TStringField;
    adsMasterCustCode: TStringField;
    adsMasterCustName: TStringField;
    adsMasterHasShare: TBooleanField;
    adsMasterEditColorID: TStringField;
    adsMasterEditColorCode: TStringField;
    adsMasterEditColorName: TStringField;
    adsMasterEditDescribe: TStringField;
    adsMasterEditCustID: TStringField;
    adsMasterEditHasShare: TBooleanField;
    adsMasterEditHasUse: TBooleanField;
    adsMasterEditHasStop: TBooleanField;
    adsMasterEditHasSysdefine: TBooleanField;
    adsMasterEditHasDefault: TBooleanField;
    adsMasterEditHasCheck: TBooleanField;
    adsMasterEditChecker: TStringField;
    adsMasterEditCheckTime: TDateTimeField;
    adsMasterEditStoper: TStringField;
    adsMasterEditStopDate: TDateTimeField;
    adsMasterEditStopMemo: TStringField;
    adsMasterEditWriter: TStringField;
    adsMasterEditWriteTime: TDateTimeField;
    adsMasterEditModifier: TStringField;
    adsMasterEditModifyTime: TDateTimeField;
    adsMasterEditRemark: TStringField;
    adsMasterEditProductID: TStringField;
    adsMasterProductID: TStringField;
    adsMasterProductCode: TStringField;
    adsMasterProductName: TStringField;
    adsMasterEditCustColor: TStringField;
    adsMasterCustColor: TStringField;
    adsMasterEditCustCode: TStringField;
    adsMasterEditCustName: TStringField;
    adsMasterEditProductCode: TStringField;
    adsMasterEditProductName: TStringField;
    adsMasterEditCostPrice: TFloatField;
    adsMasterEditAddPrice: TFloatField;
    adsMasterCostPrice: TFloatField;
    adsMasterAddPrice: TFloatField;
    adsMasterEditSupplyID: TStringField;
    adsMasterEditSupplyCode: TStringField;
    adsMasterEditSupplyName: TStringField;
    adsMasterSupplyID: TStringField;
    adsMasterSupplyCode: TStringField;
    adsMasterSupplyName: TStringField;
    adsMasterEditProductSpecs: TStringField;
    adsMasterProductSpecs: TStringField;
  private
    { Private declarations }
  protected
    procedure ModuleInit;override;
  public
    { Public declarations }
    procedure OpenEditDataSet; override;
  end;

var
  dtmda_Color: Tdtmda_Color;

implementation
uses dmConnect;
{$R *.dfm}

{ Tdtmcj_AxesNo }

procedure Tdtmda_Color.ModuleInit;
begin
  FUniqueTable := 'da_Color';
  inherited;
end;

procedure Tdtmda_Color.OpenEditDataSet;
begin
  FMasterEditTable := 'da_Color';
  FMasterKeyField := 'ColorID';
  inherited;
end;

end.
